Дан квадратный массив a(n,n) (кол-во столбцов/строк вводится с клавиатуры).Заполнить его в порядке возрастания в соответствие с рисунком- QBasic(Бейсик)

INPUT n
DIM a(n, n)
k = 1
FOR j = 1 TO n
IF j MOD 2 = 1 THEN
FOR i = 1 TO n
a(i, j) = k
k = k + 1
NEXT
ELSE
FOR i = n TO 1 STEP -1
a(i, j) = k
k = k + 1
NEXT
END IF
NEXT
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT

INPUT n
DIM a(n, n)
FOR j = 1 TO n
    IF j MOD 2 THEN z = 0 ELSE z = n + 1
    FOR i = 1 TO n
        k = k + 1
        a(ABS(z - i), j) = k
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT USING "####"; a(i, j);
    NEXT
    PRINT
NEXT